Google
 
Trailing-Edge - PDP-10 Archives - 6.1_emacs_manuals_1er - emacs/vt100.:ej
There are no other files named vt100.:ej in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   !
oR2'8M>K$Ws`2oZT{dssrk'd/v;;E6L;& Begin PF Key Def& End PF Key Def& Setup VT100 Library

C80 ModeVT100 Alternate KeypadVT100 Normal KeypadVT100 Page Mode^R Interpret VT100 Keypad^R PF Def Quit^R Redefined End Kbd Macro^R VT100 Comma~DIRECTORY~~DOC~ & Begin PF Key Def~DOC~ & End PF Key Def~DOC~ & Setup VT100 Library~DOC~ C132 Mode~DOC~ C80 Mode ~DOC~ VT100 Alternate Keypad~DOC~ VT100 Normal Keypad~DOC~ VT100 Page Mode#~DOC~ ^R Interpret VT100 Keypad~DOC~ ^R PF Def Quit$~DOC~ ^R Redefined End Kbd Macro~DOC~ ^R VT100 Comma~DOC~ ~Filename~~Filename~

~INVERT~	[0[1
0FO..QVT100 Setup Hooku0
fq0"gm0'
@:i*/1fsechoflush
:i*CVT100 Library has already been loaded
fsechodisplay
0fsechoactive/m.vVT100 Setup Hook
0fo..qfork call hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Normal Keypad)`m.vfork call hook
0fo..qexit hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Normal Keypad)`m.vexit hook
0fo..qreturn to superior hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Normal Keypad)`m.vreturn to superior hook
0fo..qfork return hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Alternate Keypad)`m.vfork return hook
0fo..qReturn From Superior hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Alternate Keypad)`m.vReturn From Superior hook
0fo..qReturn From Inferior hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Alternate Keypad)`m.vReturn From Inferior Hook
0m.VOld FS^REnter
0m.VVT100 PF Def Flag
m(m.mVT100 Alternate Keypad)
m.m^R Interpret VT100 Keypadu..O
]1]0:I*=[?1hFSIMAGEOUT:I*[?1l>FSIMAGEOUTzfi[0
q0-n"e
m(m.m^R Documentation)
oExit1'
q0-A"e
@m(m.m^R Up Real Line)'
q0-B"e
@m(m.m^R Down Real Line)'
q0-D"e
@m(2fs^RInit)'
q0-C"e
@m(6fs^RInit)'
q0-M"e
qVT100 PF Def Flag"e
F@:m(m.m& Begin PF Key Def)'
"#
F@:m(m.m& End PF Key Def)''
q0-P:"l
q0-S:"g
q0-37.:i0
0fo..QMM PF0 Handler[1
q1"n@m1oExit1'
"#:i*UPF	Undefined PF Key: <PF0>fserr'''
q0-l"eoArg-Exec'
q0-m"eoArg-Exec'
q0-p:"lq0-y:"goArg-Exec''
:i*UKO	Undefined Keypad Optionfserr
!Arg-Exec!
fs^RArgp"e@ft
ARG: '
q0-l"e
@ft,
f@m(m.m^R VT100 Comma)
oExit1'
q0-p:"lq0-y:"g
fs^RArg"l
q.Y-1"e-1*(q0-p)fs^RArg'
"#fs^RArg*10-q0+pfs^RArg''
"#fs^RArg*10+q0-pfs^RArg'
q.Y+1u.Y
q0-100.U0
@ft0
oExit''
q0-m"e
fs^RArgp"gfgoExit'
-1fs^RArg
@FT-
1U.Y
oExit'
!Exit!
0fs^RLast
3fs^RArgp
!Exit1!
0fsEchoActive
k[0
:fi-"noBadKey'
fi
:fi-O"noBadKey'
fi
:fi-P"loBadKey'
:fi-S"goBadKey'
fi-37.:i0
1,m(m.m& Get Library Pointer)KBDMAC"e
m(m.mLoad Library)KBDMAC
m.m^R Redefined End Kbd Macrou:.x())'
q0M.VPF Key being defined
0fo..QMM PF0 Handler"n
:i*re-'"#:i*'[1
:I*[..J
1[VT100 PF Def Flag
fs^REnter[Old FS^REnter
@:i*~:i..J[Keyboard Macro <PF0> being 1defined.]fr
qOld FS^REnterfs^REnter~fs^REnter
1f<!PF-Errexit!
1f<!PF-Normexit!
m.m^R PF Def Quit[.]
m(m.m^R Start Kbd Macro)
>
qLast Kbd Macrom.vMM PF0 Handler
:i*C<PF0> 1defined.fsechodisplayout
0fsechoactive
>
:i*C<PF0> NOT 1defined.fsechodisplayout
0fstyisink
0fsechoactive
!BadKey!
:i*NPF	Not a PF Keyfserr-@m(m.m^R End Kbd Macro)
f;PF-Normexitf;PF-ErrexitgqVT100 PF Def Flag"e
:@m(m.m^R End Kbd Macro)'
"#
@m(m.m^R End Kbd Macro)
f;PF-Normexit'_0fs^RArg0fs^RArgp
,@m(@fif(f(fs^Rlastw)u..0)@fs^RCmacro)@v
<fs^RLast:@;
,(fs^RArgp"n
fs^RArgp&2"nfs^RArgp&4"n-1*'(fs^Rarg)'"#1[0fs^RExpt<q0*4u0>q0(]0)'(
)')@m(@fif(f(fs^Rlastw)u..0)@fs^RCmacro)@v>
0Mm(m.mVT100 Page Mode)
:i*[?3hfsimageout
131fswidth
-1fspjatyf+Lm(m.mVT100 Page Mode)
:i*[?3lfsimageout
79fswidth
-1fspjatyf+-1fsttpagmode
0fo..qVT100 Page Mode Enabled"e
0fo..qSearch Command"e
Q.SU.\'
"#Q.S,qSearch Commandfs^RCMAC'
:i*-1fsttpagmodeU.S
:i*-1fsttpagmodeU.Q
1m.vVT100 Page Mode Enabled'
0fo..qSearch Command"e
m.vSearch Command'
0fo..qSearch Quote"e
m.vSearch Quote'
Q:.X()U:.X(S)
Q:.X()U:.X(~)
:i*21.iU..*
m.m^R Quoted Insert,8fs^RCMAC
	VT100*A library for hacking EMACS on VT100'sVThings to do when this library loads
Define keypad handler, Redefine ^X), etc... qC Sets alternate keypad mode for VT100's
When this command is executed, the numeric keypad can be used to enter
arguments for the following function.  Numbers are entered as themselves,
dot and "enter" key on the pad are also changed.oC Undos alternate keypad mode for VT100's
When this command is executed from a VT100, the keys on the keypad become
functionally identical to the standard digit keys.  See VT100 Alternate Keypad
for a description of the alternative.UMake keypad chars for VT100 do nice things...
0-9 and minus sign accumulate arg.
Dot runs ^R documentation
Arrow keys run up, down, right, and left movement macros.
Enter followed by one of PF1-4 begins a Keyboard Macro definition.
PF1-4 Execute predefined Keyboard Macro definitions.
Comma runs ^R VT100 Comma -- optionally followed by <Control-U><digits>
 if a post-comma arg is desired as well -- this calls next ^R command
 with a precomma arg. (Note: for various obscure reasons, keypad digits
 may not follow a keypad comma, nor may Meta-digit or C-M-digit. Only ^U
 will work. Start a Keyboard definition of one of the PF keys
Reads a PF Key name followed by a Keyboard macro definition followed by
a "." on the keypad to terminate& End a Keyboard definition of one of the PF keys
Terminates a Keyboard macro definition begun by an "Enter" on VT100 keyboardsz^R Abort a Keyboard definition of one of the PF keys
Terminates a Keyboard macro definition without defining anything$^R End keyboard macro definition^R Run precomma arg0C Put VT100 in 132 column mode and change ^S/^Q
^R Incremental search becomes ^\. ^Q inside search becomes ^^.
Outside of searches, you must use ^^Q to quote a character.1C Put Vt100 in 80 column mode (see C132 Mode)&C Set Page Mode and change incremental search cmds.
 C-X C-S (^R Save File) becomes C-X S
 C-X C-Q (^R Set File Read Only) becomes C-X ~
 C-S (^R Incremental Search) becomes C-\
 C-Q (^R Quoted Insert) within a search becomes C-^
 C-Q (^R Quoted Insert) outside a search becomes C-H (backspace).

 To insert a bare ^Q type M-*. For more info on the VT100 keyboard do:
   M-X Describe$^R Interpret VT100 Keypad.k& Setup VT100 Library
VT100 Alternate Keypad
VT100 Normal Keypad
^R Interpret VT100 Keypad
& Begin PF Key Def
& End PF Key Def
^R PF Def Quit
^R Redefined End Kbd Macro
^R VT100 Comma
C132 Mode
C80 Mode
VT100 Page Mode
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2